Sub proc_CommandBar_Test()
'2013-11-15 JUN,YOUNG-WOOK
    Dim oCbr As CommandBar
    Dim oCtrl As Object 'Control로 잡으면 에러 발생
    Dim bOperate As Boolean: bOperate = True
    
    
    'CommandBar의 종류
    Debug.Print "[CommandBar========================]"
    For Each oCbr In Application.CommandBars
        Debug.Print oCbr.Index & " = " & oCbr.Name
    Next oCbr
    
    
    '특정 CommandBar가 갖고 있는 Control 목록(Context Menu 목록)
    'Control은 특이하게도 ID 속성값을 갖고 있다.
    '프로그래밍할 때는 Index 속성값을 사용하면 된다.
    Debug.Print "[Controls========================]"
    Set oCbr = Application.CommandBars("Row")
    For Each oCtrl In oCbr.Controls
        Debug.Print oCtrl.Index & " = " & oCtrl.Caption & "(" & oCtrl.ID & ")"
    Next oCtrl
    
    
    'True 정상적으로 보이기
    'False 선택 못하게 하기(회색으로 보이기)
    oCbr.Controls(3).Enabled = bOperate '붙여넣기
    oCbr.Controls(4).Enabled = bOperate '선택하여 붙여넣기
    oCbr.Controls(5).Enabled = bOperate '복사하여 붙여넣기
End Sub